(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a

message when interactive (sync from trunk 2008-06-12).

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 2f40e00135f9fb26be071d2a6c5805e4074743c2..2f6051a8bd5835af1a654e40045426ae47384b25 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1234,7 +1234,7 @@ Return (TYPE NAME), or nil if not found."
        matching-beg
       ;; Note this includes the case of an un-named main program,
       ;; in which case we go to (point-min).
-      (message "No beginning found.")
+      (if (interactive-p) (message "No beginning found."))
       nil)))
 
 (defun f90-end-of-subprogram ()
@@ -1259,7 +1259,7 @@ Return (TYPE NAME), or nil if not found."
 ;;;    (forward-line 1)
     (if (zerop count)
        matching-end
-      (message "No end found.")
+      (if (interactive-p) (message "No end found."))
       nil)))